home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
comm1
/
s342q12.lha
/
confg2.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-03-09
|
10KB
|
410 lines
/*
* confg2.c
*
* Event configuration program for Citadel bulletin board system.
*/
#define CONFIGURE
#include "ctdl.h"
/*
* History
*
* 87Oct02 HAW Created.
*/
/*
* Contents
*
* checkList() searches for a given string
* EatEvent() Digests a #event
* FigureNets() eats a comma separated list of nets
* getLVal() gets a field value from a #event line
*/
int EvWCt = 0;
#define PARA1 "\nWARNING: An event of Class dl-time should only use type quiet\n"
#define PARA2 "\nWARNING: An event of Class anytime-net should only use type quiet\n"
#define PARA3 "\nWARNING: Events of Class chat-on and chat-off should only use type quiet\n"
#define PARA4 "\nWARNING: Events of Class newusers-allowed and newusers-disallowed should only use type quiet\n"
#define PARA5 "Events of Class until-done-net cannot be of type quiet.\n"
#define PARA6 "Events of Class netcache cannot be of type quiet.\n"
typedef struct
{
char *GenName;
int GenVal;
}
GenList;
/*** INDENT-OFF ***/
static GenList EvnDays[] =
{
{ "Sun", SUNDAYS },
{ "Mon", MONDAYS },
{ "Tue", TUESDAYS },
{ "Wed", WEDNESDAYS },
{ "Thu", THURSDAYS },
{ "Fri", FRIDAYS },
{ "Sat", SATURDAYS },
{ "All", ALL_DAYS }
};
static GenList EvnTypes[] =
{
{ "preempt", TYPREEMPT },
{ "non-preempt", TYNON },
{ "quiet", TYQUIET }
};
static GenList EvCls[] =
{
{ "network", CLNET },
{ "external", CLEXTERN },
{ "relative", CLREL },
{ "dl-time", CL_DL_TIME },
{ "anytime-net", CL_ANYTIME_NET },
{ "door-limit", CL_DOOR_TIME },
{ "autodoor", CL_AUTODOOR },
{ "chat-on", CL_CHAT_ON },
{ "chat-off", CL_CHAT_OFF },
{ "redirect", CL_REDIRECT },
{ "newusers-allowed", CL_NEWUSERS_ALLOWED },
{ "newusers-disallowed", CL_NEWUSERS_DISALLOWED },
{ "until-done-net", CL_UNTIL_NET },
{ "netcache", CL_NETCACHE },
};
SListBase Events ={
NULL, NULL, NULL, EvFree, NULL
};
/** INDENT-ON **/
extern CONFIG cfg; /* The configuration variable */
extern EVENT *EventTab;
typedef struct
{
EVENT *Evt;
char doorname[10]; /* inefficient? who cares... */
}
DLK;
int checkList(char *ptr, GenList listing[], int elements);
/*
* EatEvent()
*
* This function assimilates event parameters. Format:
*
* #event <days> <time> <class> <type> <duration> <warning string> <dep>
*/
int EatEvent(char *line, int offset)
{
EVENT *EvBuf;
DLK *DataLk;
char *ptr, temp[10];
int rover, i, Day;
int EvHour, EvMin;
EvBuf = (EVENT *) GetDynamic(sizeof *EvBuf);
if ((ptr = strchr(line, '\n')) != NULL)
*ptr = 0;
rover = 6; /* starting index into line '#event ' ... */
Day = FigureDays(getLVal(line, &rover, ' '));
EvHour = atoi(getLVal(line, &rover, ':'));
EvMin = atoi(getLVal(line, &rover, ' '));
EvBuf->EvMinutes = EvHour * 60 + EvMin;
ptr = getLVal(line, &rover, ' ');
EvBuf->EvClass = checkList(ptr, EvCls, NumElems(EvCls));
if (EvBuf->EvClass != CLREL)
{
if (EvHour > 23 || EvMin > 59)
illegal("Bad time specified for an event!\n");
EvBuf->EvMinutes = EvHour * 60 + EvMin;
}
ptr = getLVal(line, &rover, ' ');
EvBuf->EvType = checkList(ptr, EvnTypes, NumElems(EvnTypes));
EvBuf->EvDur = atoi(getLVal(line, &rover, ' '));
if( EvBuf->EvDur < 1)
{
printf("Warning, duration is less than 1 minute\n");
};
EvBuf->EvWarn = GetStoreQuote(line, cfg.codeBuf, &rover, &offset);
switch (EvBuf->EvClass)
{
case CL_ANYTIME_NET:
EvBuf->vars.Anytime.EvDeadTime = atoi(getLVal(line, &rover, ' ')) * 60l;
EvBuf->vars.Anytime.EvAnyDur = atoi(getLVal(line, &rover, ' '));
if (EvBuf->vars.Anytime.EvDeadTime < 5 )
{
printf(" Warning, Anytime-net event has deadtime(%ld) less than 5 minutes\n",EvBuf->vars.Anytime.EvDeadTime);
};
if (EvBuf->vars.Anytime.EvAnyDur < 1 )
{
printf(" Warning, Anytime-net event has duration(%d) less than 1 minutes\n",EvBuf->vars.Anytime.EvAnyDur);
};
/* no break */
case CLNET:
case CL_UNTIL_NET:
EvBuf->EvExitVal = FigureNets(getLVal(line, &rover, ' '));
if (EvBuf->EvClass == CL_ANYTIME_NET && EvBuf->EvType != TYQUIET)
{
printf(PARA2);
EvBuf->EvType = TYQUIET;
}
if (EvBuf->EvClass == CL_UNTIL_NET && EvBuf->EvType == TYQUIET)
{
illegal(PARA5);
}
break;
case CL_NETCACHE:
if (EvBuf->EvType == TYQUIET)
{
illegal(PARA6);
}
EvBuf->EvExitVal = FigureNets(getLVal(line, &rover, ' '));
break;
case CL_AUTODOOR:
i = 0;
GetStoreQuote(line, EvBuf->vars.EvUserName, &rover, &i);
strCpy(temp, getLVal(line, &rover, ' '));
break;
case CL_CHAT_ON:
case CL_CHAT_OFF:
if (EvBuf->EvType != TYQUIET)
{
printf(PARA3);
EvBuf->EvType = TYQUIET;
}
break;
case CL_NEWUSERS_ALLOWED:
case CL_NEWUSERS_DISALLOWED:
if (EvBuf->EvType != TYQUIET)
{
printf(PARA4);
EvBuf->EvType = TYQUIET;
}
break;
case CL_REDIRECT: /* filename targetdir systemname */
strCpy(EvBuf->vars.Redirect.EvFilename, getLVal(line, &rover, ' '));
EvBuf->vars.Redirect.EvHomeDir = offset;
strCpy(cfg.codeBuf + offset, getLVal(line, &rover, ' '));
while (cfg.codeBuf[offset++])
;
strCpy(EvBuf->vars.Redirect.EvSystem, line + rover + 1);
break;
case CLREL:
case CLEXTERN:
case CL_DL_TIME:
case CL_DOOR_TIME:
EvBuf->EvExitVal = (MULTI_NET_DATA) atoi(getLVal(line, &rover, ' '));
if (EvBuf->EvType != TYQUIET && EvBuf->EvClass == CL_DL_TIME)
{
printf(PARA1);
EvBuf->EvType = TYQUIET;
}
if (EvBuf->EvClass != CL_DL_TIME &&
EvBuf->EvClass != CL_DOOR_TIME)
{
if (EvBuf->EvExitVal >=0 && EvBuf->EvExitVal < 5)
printf("\n\007WARNING: Event ERRORLEVEL value is "
"between 0 and 4, all of which are used by "
"Citadel.\007\n");
}
break;
}
/* now check to see which days this event is active */
if (EvBuf->EvClass != CLREL)
{
for (rover = 0, i = 1; rover < 7; EvBuf->EvMinutes += 1440, rover++)
{
if (Day & i)
{
DataLk = (DLK *) GetDynamic(sizeof *DataLk);
DataLk->Evt = (EVENT *) GetDynamic(sizeof *EvBuf);
memcpy(DataLk->Evt, EvBuf, (long)sizeof *EvBuf);
strCpy(DataLk->doorname, temp);
AddData(&Events, DataLk, NULL, FALSE);
cfg.EvNumber++;
}
i = i << 1;
}
}
else
{
EvBuf->EvDur = EvHour * 60 + EvMin;
DataLk = (DLK *) GetDynamic(sizeof *DataLk);
DataLk->Evt = (EVENT *) GetDynamic(sizeof *EvBuf);
memcpy(DataLk->Evt, EvBuf, (long)sizeof *EvBuf);
AddData(&Events, DataLk, NULL, FALSE);
cfg.EvNumber++;
}
return offset;
}
/*
* checkList()
*
* This function searches for a given string in a list of arrays. This is
* used for both classes and types.
*/
int checkList(char *ptr, GenList listing[], int elements)
{
int rover;
char message[100];
for (rover = 0; rover < elements; rover++)
if (strCmpU(ptr, listing[rover].GenName) == SAMESTRING)
return listing[rover].GenVal;
sPrintf(message, "'%s' is not recognized!\n", ptr);
illegal(message);
return ERROR;
}
/*
* getLVal()
*
* This function gets a field value from a #event line.
*/
char *getLVal(char *line, int *rover, char fin)
{
static char retVal[75];
int i;
if (!line[*rover])
{
retVal[0] = 0;
return retVal;
}
if (line[*rover] != '\n')
(*rover)++;
while (line[*rover] == ' ') (*rover)++;
i = 0;
while (line[*rover] != fin && line[*rover] != '\n' &&
line[*rover] != 0 )
{
retVal[i++] = line[*rover];
(*rover)++;
}
retVal[i] = 0;
return retVal;
}
/*
* FigureNets()
*
* This function takes a comma separated list of nets and eats it.
*/
MULTI_NET_DATA FigureNets(char *str)
{
MULTI_NET_DATA retVal, r;
int temp;
retVal = 0l;
while (*str)
{
temp = atoi(str);
if (temp < 1 || temp > 31) illegal("Bad member net value (0 < x < 32");
r = 1l;
retVal = retVal + (r << (temp - 1));
while (*str != ',' && *str) str++;
if (*str) str++;
}
return retVal;
}
/*
* GetStoreQuote()
*
* This function reads in a quoted string and stores it in codeBuf.
*/
int GetStoreQuote(char *line, char *target, int *rover, int *offset)
{
int OldOffset;
OldOffset = *offset;
while (line[*rover] == ' ') (*rover)++;
if (line[*rover] != '\"')
illegal("Expecting a quote mark in event processor!\n");
(*rover)++;
if (line[*rover] == '\"')
{
(*rover)++;
return ERROR;
}
while (line[*rover] != '\"' && line[*rover] != '\r')
{
target[(*offset)++] = line[*rover];
(*rover)++;
}
target[(*offset)++] = 0;
(*rover)++;
return OldOffset;
}
/*
* FigureDays()
*
* This function reads and interprets the <days> field.
*/
int FigureDays(char *vals)
{
int results, rover;
char val[4];
results = 0;
while (*vals)
{
for (rover = 0; rover < 3; rover++)
val[rover] = *vals++;
val[3] = 0;
results += checkList(val, EvnDays, NumElems(EvnDays));
if (*vals) vals++; /* bypass ',' */
}
return results;
}
/*
* EvIsDoor()
*
* This function is used by RunList, etc. It does final init on #events
* which control autodoors.
*/
void EvIsDoor(DLK *d)
{
if (d->Evt->EvClass == CL_AUTODOOR)
d->Evt->EvExitVal = (MULTI_NET_DATA) FindDoorSlot(d->doorname);
}
/*
* EvFree()
*
* This function frees part of a list of events. Superfluous????
*/
void EvFree(DLK *d)
{
free(d->Evt);
free(d);
}
/*
* EventWrite()
*
* This function moves the element to the designated array position.
*/
void EventWrite(DLK *d)
{
memcpy(EventTab + EvWCt++, d->Evt,(long)sizeof (EVENT));
}